# directory
tab <- data.table::fread("website/data/modeling_results/QTLs_LDtrait_association_ALLpopulation_r20.1.txt")
colnames(tab)[1] <- "Query_SNP"
colnames(tab)[4] <- "GWAS_SNP_in_LD"
df_html <- tab %>%
datatable(escape = F, style = "auto")
df_html## Warning in instance$preRenderHook(instance): It seems your data is too big for client-side DataTables. You may consider server-side
## processing: https://rstudio.github.io/DT/server.html